// EnergyPlus, Copyright (c) 1996-2025, The Board of Trustees of the University of Illinois,
// The Regents of the University of California, through Lawrence Berkeley National Laboratory
// (subject to receipt of any required approvals from the U.S. Dept. of Energy), Oak Ridge
// National Laboratory, managed by UT-Battelle, Alliance for Sustainable Energy, LLC, and other
// contributors. All rights reserved.
//
// NOTICE: This Software was developed under funding from the U.S. Department of Energy and the
// U.S. Government consequently retains certain rights. As such, the U.S. Government has been
// granted for itself and others acting on its behalf a paid-up, nonexclusive, irrevocable,
// worldwide license in the Software to reproduce, distribute copies to the public, prepare
// derivative works, and perform publicly and display publicly, and to permit others to do so.
//
// Redistribution and use in source and binary forms, with or without modification, are permitted
// provided that the following conditions are met:
//
// (1) Redistributions of source code must retain the above copyright notice, this list of
//     conditions and the following disclaimer.
//
// (2) Redistributions in binary form must reproduce the above copyright notice, this list of
//     conditions and the following disclaimer in the documentation and/or other materials
//     provided with the distribution.
//
// (3) Neither the name of the University of California, Lawrence Berkeley National Laboratory,
//     the University of Illinois, U.S. Dept. of Energy nor the names of its contributors may be
//     used to endorse or promote products derived from this software without specific prior
//     written permission.
//
// (4) Use of EnergyPlus(TM) Name. If Licensee (i) distributes the software in stand-alone form
//     without changes from the version obtained under this License, or (ii) Licensee makes a
//     reference solely to the software portion of its product, Licensee must refer to the
//     software as "EnergyPlus version X" software, where "X" is the version number Licensee
//     obtained under this License and may not use a different name for the software. Except as
//     specifically required in this Section (4), Licensee shall not use in a company name, a
//     product name, in advertising, publicity, or other promotional activities any name, trade
//     name, trademark, logo, or other designation of "EnergyPlus", "E+", "e+" or confusingly
//     similar designation, without the U.S. Department of Energy's prior written consent.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR
// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
// AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

#include <EnergyPlus/Data/EnergyPlusData.hh>
#include <EnergyPlus/GroundHeatExchangers/Properties.hh>
#include <EnergyPlus/GroundHeatExchangers/State.hh>
#include <EnergyPlus/UtilityRoutines.hh>

namespace EnergyPlus::GroundHeatExchangers {

GLHEVertProps::GLHEVertProps(EnergyPlusData &state, std::string const &objName, nlohmann::json const &j)
{

    // Check for duplicates
    for (const auto &existingObj : state.dataGroundHeatExchanger->vertPropsVector) {
        if (objName == existingObj->name) {
            ShowFatalError(state, format("Invalid input for {} object: Duplicate name found: {}", moduleName, existingObj->name));
        }
    }

    // Load data from JSON
    this->name = objName;
    this->bhTopDepth = j["depth_of_top_of_borehole"].get<Real64>();
    this->bhLength = j["borehole_length"].get<Real64>();
    this->bhDiameter = j["borehole_diameter"].get<Real64>();
    this->grout.k = j["grout_thermal_conductivity"].get<Real64>();
    this->grout.rhoCp = j["grout_thermal_heat_capacity"].get<Real64>();
    this->pipe.k = j["pipe_thermal_conductivity"].get<Real64>();
    this->pipe.rhoCp = j["pipe_thermal_heat_capacity"].get<Real64>();
    this->pipe.outDia = j["pipe_outer_diameter"].get<Real64>();
    this->pipe.thickness = j["pipe_thickness"].get<Real64>();
    this->bhUTubeDist = j["u_tube_distance"].get<Real64>();

    // Verify u-tube spacing is valid
    if (this->bhUTubeDist < this->pipe.outDia) {
        ShowWarningError(state, "Borehole shank spacing is less than the pipe diameter. U-tube spacing is reference from the u-tube pipe center.");
        ShowWarningError(state, "Shank spacing is set to the outer pipe diameter.");
        this->bhUTubeDist = this->pipe.outDia;
    }

    // Set remaining data derived from previous inputs
    this->pipe.innerDia = this->pipe.outDia - 2 * this->pipe.thickness;
    this->pipe.outRadius = this->pipe.outDia / 2;
    this->pipe.innerRadius = this->pipe.innerDia / 2;
}

std::shared_ptr<GLHEVertProps> GLHEVertProps::GetVertProps(EnergyPlusData &state, std::string const &objectName)
{
    // Check if this instance of this model has already been retrieved
    const auto thisObj = std::find_if(state.dataGroundHeatExchanger->vertPropsVector.begin(),
                                      state.dataGroundHeatExchanger->vertPropsVector.end(),
                                      [&objectName](const std::shared_ptr<GLHEVertProps> &myObj) { return myObj->name == objectName; });
    if (thisObj != state.dataGroundHeatExchanger->vertPropsVector.end()) {
        return *thisObj;
    }
    ShowSevereError(state, fmt::format("Object=GroundHeatExchanger:Vertical:Properties, Name={} - not found.", objectName));
    ShowFatalError(state, "Preceding errors cause program termination");
}

} // namespace EnergyPlus::GroundHeatExchangers
